home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 September (IDG) / Sep99.iso / Shareware World / Utilities / Text Processing / Alpha / Tcl / Modes / gnuplotMode.tcl < prev    next >
Encoding:
Text File  |  1998-05-23  |  70.3 KB  |  2,527 lines  |  [TEXT/ALFA]
  1. #  
  2. # "gnuplotMode.tcl"  
  3. #                                    created: 26/4/97 {7:59:36 pm} 
  4. #                                last update: 23/5/98 {8:25:15 pm} 
  5. #  Author: Jeff Schindall
  6. #  E-mail: <mailto:schindall@nrl.navy.mil>
  7. #    mail: Naval Research Laboratory 
  8. #          Acoustics Division --- Code 7120
  9. #          4555 Overlook Ave SW
  10. #          Washington, DC, 20375 USA ]
  11. #    
  12. # gnuplotMode.tcl, Version 1.83       For  gnuplot 3.6
  13. #
  14. # This is a set of TCL proc's that allow the shareware Macintosh 
  15. # text editor Alpha to serve as a front end for GNUPLOT for 
  16. # Macintosh version 3.6. This script requires Alpha 7.0 or later.
  17. #
  18. # Just use 'shift-ctrl-g' to launch a gnuplot console
  19. # 
  20. # (Note: Vince updated this file for use with Alpha 7.1b10)
  21. #############################################################################
  22. #
  23. # Autoload procedures
  24. #
  25. #
  26. alpha::mode GPLT 1.9b2 dummyGPLT {*.gp *.gnu *.gnp *.gplt *.GP *.GNU *.GNP *.GPLT }  \
  27.   GnuplotMenu {
  28.     addMenu GnuplotMenu "•415"
  29.     set modeCreator(GPLT) GPLT
  30.     set modeCreator(GPSE) GPLT
  31.     # Set GLOBAL mode binding to bring up gnuplot Console
  32.     Bind 'g' <sz> GP_Console
  33.     Bind 'n' <sc> GP_NewWindow
  34. }
  35.  
  36. ########################################################################
  37. #
  38. #  This mode was written by Jeff Schindall.  Some code was pinched from 
  39. #  other TCL files distributed with Alpha and matlab.tcl.
  40. #   
  41. #  Comments, suggestions, and bug reports should be sent to Jeff at
  42. #     mailto:schindall@nrl.navy.mil
  43. #
  44. #  You should be able to find the most recent current version of this
  45. #  gnuplotMode.tcl and the server app script at 
  46. #      
  47. #      ftp://ftp.ee.gatech.edu/pub/mac/gnuplot
  48. #
  49. #   and the most recent bleeding edge version at 
  50. #
  51. #      ftp://wave1m.nrl.navy.mil/pub/gnuplotMode.tcl.gz
  52. #
  53. #######################################################################
  54. #                                                                        
  55. #     Version History:                                                
  56. #                                                                        
  57. #         1.6    12/23/96                                                   
  58. #         -----------------------------------------------
  59. #         Floating palatte now very usefull.  User can run a script
  60. #         by selecting a script menu item, or edit the script by
  61. #         selecting the script menu item with the option key held down
  62. #
  63. #         1.5.9b    12/10/96                                                   
  64. #         -----------------------------------------------
  65. #         repaired broken scripts menu
  66. #         added a "edit scripts" menu----eventually, this one
  67. #         will go away, but the functionality will be retained
  68. #
  69. #         1.5.9    12/05/96                                                   
  70. #         -----------------------------------------------
  71. #         repaired broken pwd display
  72. #
  73. #         1.5.8    12/05/96                                                   
  74. #         -----------------------------------------------
  75. #         plot '-' now works
  76. #         pause in demo-mode works better
  77. #         added option to rebuild scripts menu
  78. #
  79. #         1.5.7    11/13/96                                                   
  80. #         -----------------------------------------------
  81. #         Check OUTP event for "Sorry, " string
  82. #         so that help for unknown item will be sent to console
  83. #         rather than a new output terminal page
  84. #
  85. #         1.5.6    11/07/96                                                   
  86. #         -----------------------------------------------
  87. #          Fixed a few floating menu buggers
  88. #
  89. #         1.5.5    11/06/96                                                   
  90. #         -----------------------------------------------
  91. #          Added a "Scripts" menu which auto loads any script
  92. #         in gnuplots "Scripts" folder (or subfolder)
  93. #         Made terminal output window creation faster
  94. #                                                                        
  95. #         1.5.4    11/05/96                                                   
  96. #         -----------------------------------------------
  97. #          Added terminal output windows for PS/TeX/MIF/etc.
  98. #                                                                        
  99. #         1.5.3    11/02/96                                                   
  100. #         -----------------------------------------------
  101. #          See 1.5.2
  102. #                                                                        
  103. #         1.5.2    11/02/96                                                   
  104. #         -----------------------------------------------
  105. #          Attempt to fix ome context switching weirdness
  106. #                                                                        
  107. #         1.5.1    10/23/96                                                   
  108. #         -----------------------------------------------
  109. #          Added some more apple event and floating palatte 
  110. #           options.
  111. #
  112. #         1.5    10/22/96                                                   
  113. #         -----------------------------------------------
  114. #          Slight bug fixes
  115. #
  116. #         1.5b3    07/18/96                                                   
  117. #         -----------------------------------------------
  118. #          Now works with Alpha 6.1 and higher.
  119. #         Added Floating menu...
  120. #
  121. #         1.5b2    07/16/96                                                   
  122. #         -----------------------------------------------
  123. #          Now works with Alpha 6.1 and higher.
  124. #
  125. #         1.5b1    07/02/96                                                   
  126. #         -----------------------------------------------
  127. #          Modify code so that it is compliant with the new
  128. #            mode conventions Pete added to 6.2 (see changes file).
  129. #         This script should still work for Alpha pre 6.2!
  130. #          Nifty self-installer!
  131. #                                                                          
  132. #                                                                          
  133. #         1.4.4    04/26/96                                                   
  134. #         -----------------------------------------------
  135. #          Modify trap for broken eventhandler on 68k                 
  136. #              so that pause works correctly and so that        
  137. #              gnuplot can bring itself to the front            
  138. #                                                                          
  139. #                                                                          
  140. #         1.4.3    04/24/96                                                  
  141. #         -----------------------------------------------
  142. #          Add trap for broken eventhandler on 68k                     
  143. #                                                                          
  144. #         1.4.2    04/17/96                                                
  145. #         -----------------------------------------------
  146. #          Let alpha do bookkeeping on globals                         
  147. #                                                                          
  148. #         1.4.1    04/15/96                                                       
  149. #         -----------------------------------------------
  150. #          Repaired broken quit and switchto menu options         
  151. #                                                                          
  152. #                                                                          
  153. #         1.4.0    04/14/96                                                       
  154. #         -----------------------------------------------
  155. #          GPLT mode preferences accessable from                  
  156. #            config:currentmode:flags... menu            
  157. #          Keyword coloring now works and is auto-sourced
  158. #            whenever GPTLPrefs.tcl is closed                          
  159. #          Reorganized and added to gnuplot menu            
  160. #          Reorganized all mode specifice procedures and 
  161. #             variable names                                        
  162. #                                                                          
  163. #                                                                          
  164. #         1.3.9    04/10/96                                                       
  165. #         -----------------------------------------------
  166. #          Keyword coloring editable from gnuplot pref menu.        
  167. #          gnuplot pref menu re-arranged                                  
  168. #          this package should display the path                       
  169. #             on the message bar                                              
  170. #                                                                          
  171. #                                                                          
  172. #         1.3.8    03/13/96                                                       
  173. #         -----------------------------------------------
  174. #          Re-arranged some code.                                  
  175. #                                                                                   
  176. #                                                                          
  177. #         1.3.7    03/13/96                                                       
  178. #         -----------------------------------------------
  179. #          Added support for cwd display on message bar    
  180. #                                                                                   
  181. #                                                                          
  182. #         1.3.6    02/26/96                                                       
  183. #         -----------------------------------------------
  184. #          Added graph button preference and repaired        
  185. #        my broken closeHook procedure                         
  186. #                                                                          
  187. #         1.3.5    02/01/96                                                       
  188. #         -----------------------------------------------
  189. #          Some minor fixes to console routines                
  190. #                                                                          
  191. #                                                                        
  192. #         1.3.4    02/01/96                                                       
  193. #         -----------------------------------------------
  194. #       Added "iconic" graph window which switches to             
  195. #               the gnuplot application                            
  196. #          Added a "gnuplot prefs" submenu                    
  197. #                                                                        
  198. #         1.3.3    12/20/95                                                       
  199. #         -----------------------------------------------
  200. #       Added Live History window                                       
  201. #          Added a function sub-menu                            
  202. #                                                                         
  203. #                                                                        
  204. #         1.3.2    12/15/95                                                       
  205. #         -----------------------------------------------
  206. #       History dump Really working this time.......           
  207. #          Included a kludge eventHander: GPIC EXEC        
  208. #             for Dave (temporary)                                
  209. #                                                                        
  210. #         1.3.1    12/14/95                                                       
  211. #         -----------------------------------------------
  212. #          Consolidated console and script editor modes.    
  213. #          Supports server once again.                           
  214. #       History dump working.......                            
  215. #                                                                        
  216. #                                                                        
  217. #         1.3    12/09/95                                                           
  218. #         -----------------------------------------------
  219. #          Should work with gnuplot app and              
  220. #          Fixed an "unknown" bug---thanks Vince            
  221. #          Files with gnuplot creator open in gnuplot mode
  222. #          Added several eventHandler's to work with the          
  223. #         gnuplot's new personality module                     
  224. #       NOTE:  No longer supports the gnuplot server app,      
  225. #              but I might add it back in later...             
  226. #                                                                        
  227. #         1.2.5    8/29/95                                            
  228. #         -----------------------------------------------
  229. #           File type as well as creator settings in place
  230. #                                                                        
  231. #                                                                        
  232. #         1.2.4    8/28/95                                            
  233. #         -----------------------------------------------
  234. #            I honestly don't recall                                
  235. #                                                                        
  236. #         1.2.3    8/27/95                                            
  237. #         -----------------------------------------------
  238. #           Fixed a few prompt related items.                
  239. #            I need to clean up the code a bit                
  240. #            especially in the console output routines        
  241. #                                                                        
  242. #         1.2.2    8/23/95                                            
  243. #         -----------------------------------------------
  244. #           Repaired help/prompting/etc which broke in    
  245. #                1.2.1                                                    
  246. #            DoSelection works for multiple lines            
  247. #                                                                        
  248. #                                                                        
  249. #         1.2.1    8/23/95                                            
  250. #         -----------------------------------------------
  251. #           Now works with unthreaded 68k systems                       
  252. #                                                                        
  253. #                                                                        
  254. #         1.2    8/23/95                                                
  255. #         -----------------------------------------------
  256. #           Deal w/"pause -1"     properly                                   
  257. #            cmd-dbl-click now works for all prompts         
  258. #            Cleaned up set output creator                        
  259. #                                                                          
  260. #                                                                        
  261. #         1.1    8/22/95                                                
  262. #         -----------------------------------------------
  263. #           Set output creators from gnuplot menu            
  264. #            Quit Working properly once again                    
  265. #            Added ERRP eventHandler for those w/o the             
  266. #          Thread Manager                                        
  267. #                                                                        
  268. #         1.0    8/21/95  (these release numbers are backwards)        
  269. #         -----------------------------------------------
  270. #           First working release                                 
  271. #                                                                        
  272. #    ============= Below were really beta's ==================== 
  273. #                                                                        
  274. #         1.0.6    8/17/95                                            
  275. #         -----------------------------------------------
  276. #           Cleaned up several procs                            
  277. #            Quit now works properly                                
  278. #                                                                        
  279. #                                                                        
  280. #         1.0.5    8/16/95                                            
  281. #         -----------------------------------------------
  282. #             replaced 'dosc' w/AEBuild                            
  283. #             added eventHandler  (thanks Dave)                    
  284. #             dumped "clean" window since Pete will            
  285. #                add this functionality to "new" in 6.0.2    
  286. #                                                                        
  287. #                                                                        
  288. #         1.0.4    8/12/95                                            
  289. #         -----------------------------------------------
  290. #             new modeVar to keep console "clean"             
  291. #                                                                        
  292. #                                                                        
  293. #         1.0.3    8/12/95                                            
  294. #         -----------------------------------------------
  295. #             Fixed bugs in closing console window            
  296. #             Added wristwatch cursor while waiting for gnuplot        
  297. #                                                                        
  298. #         1.0.2    8/11/95                                            
  299. #         -----------------------------------------------
  300. #         When console window is closed the gnuplot    
  301. #              app is quit and user is prompted to save    
  302. #          the Alpha/gnuplot history                        
  303. #                                                                        
  304. #         Command-Dbl-Click anywhere between gnuplot     
  305. #              prompts to select gnuplot output.  Nice        
  306. #          if you send term output to the console.        
  307. #                                                                        
  308. #         1.0.1    8/8/95                                            
  309. #         -----------------------------------------------
  310. #            Handles multiplot mode                                
  311. #             set output file CREATOR modeVar    (not yet)    
  312. #                                                                         
  313. #                                                                        
  314. #         1.0    8/7/95                                                
  315. #         -----------------------------------------------
  316. #            Now works with 3.6 (but not with 3.5)            
  317. #                                                                         
  318. #    =======================================================        
  319. #                                                                         
  320. #         0.4    8/3/95                                                
  321. #         -----------------------------------------------
  322. #           user specified colorizing through check pop-up       
  323. #             menu in GNUc console.  You must quit alpha and       
  324. #             restart to see the effects.  Also, you must          
  325. #         make sure that keywords and colors don't overlap.    # 
  326. #                                                              
  327. #                                                                        
  328. #         0.3    8/3/95                                                
  329. #         -----------------------------------------------
  330. #             Console position remembered between sessions
  331. #                                                                        
  332. #              Enabled command history to be dumped to a window        
  333. #                                                                  
  334. #                                                                        
  335. #         0.2    8/2/95                                                
  336. #         -----------------------------------------------
  337. #             Added a    Switch to gnuplot    menu option            
  338. #                                                                        
  339. #             Added Console modeVar                                        
  340. #                                                                        
  341. #         Added run in background modeVar                           
  342. #                                                                        
  343. #             Command History mostly working in console.    
  344. #                                                                        
  345. #             Cleaned    things up a    bit.                            
  346. #                                                                        
  347. #                                                                        
  348. #         0.1    8/1/95                                                
  349. #         -----------------------------------------------
  350. #             converted matlab.tcl to gnuplot.tcl            
  351. #                                                                        
  352. #                                                                        
  353. ###############################################################
  354.  
  355.  
  356.  
  357. proc dummyGPLT  {} {}
  358. proc GnuplotMenu {} {}
  359. hook::register mode::init GP_GraphButton GPLT
  360. hook::register mode::editPrefsFile GP_editCurrentModePrefs GPLT
  361. hook::register dialog::modifyModeFlags GP_modifyModeFlags GPLT        
  362. hook::register closeHook GP_CloseHook GPLT
  363. hook::register deactivateHook GP_DeactivateHook GPLT
  364. hook::register activateHook GP_ActivateHook GPLT
  365.  
  366. newPref v prefixString {# } GPLT
  367. newPref v wordBreak {[a-zA-Z0-9_]+} GPLT
  368. newPref f wordWrap {0} GPLT
  369. newPref v wordBreakPreface {[^a-zA-Z0-9_]} GPLT
  370. newPref v tabSize {3} GPLT
  371. newPref v prefixString {# } GPLT
  372. newPref f NevrSavHist {0} GPLT
  373. newPref f LiveHist {1} GPLT
  374. newPref f GraphButton {1} GPLT
  375. newPref f EventHandler {1} GPLT
  376. newPref v bracesColor blue GPLT
  377. newPref v bracesColor blue GPLT
  378. newPref v stringColor green GPLT
  379. newPref v commentColor red GPLT
  380. set gpTermCt 0
  381.  
  382. ###BGK
  383.    # (DO NOT ERASE Previous line)
  384.    # 
  385.    # NOTE:  Some coloring is controlled via 
  386.    #        Config:current mode:flags... menu
  387.    #
  388.  
  389.       ### BLUE words ###
  390.  
  391. set gpBlueWords { 
  392.     console  set show plot splot \\
  393.     autoscale      binary         boxxyerrorbars bugs
  394.     call           cd             clear          co-ordinates
  395.     comments             environment    exit
  396.     expressions    fit                       if
  397.     introduction   line-editing   load           pause
  398.     plot           print          pwd            quit
  399.     replot         reread         reset          save
  400.     seeking-assistance set            shell          show
  401.     splot          startup        style          substitution
  402.     test           update         userdefined    xyerrorbars
  403.     xerrorbars yerrorbars
  404.     "Copyright(C) 1986 - 1997" "Copyright(C) 1986 - 1998"
  405. } 
  406.  
  407.  
  408.  
  409.       ### RED words ###
  410.  
  411. set gpRedWords { 
  412.     topics available: Subtopics available  
  413.     server macintosh Press return for more: Help topic: 
  414.     Subtopic of {G N U P L O T} {(pre 3.6)}  3.5 3.6 
  415.     version for 68k ppc Power Macintosh patchlevel 
  416.     last modified first second
  417. } 
  418.  
  419.  
  420.      ### GREEN WORDS ###
  421.  
  422. set gpGreenWords {  
  423.     ranges         smooth         data-file      datafile          
  424.     parametric     locale         nosquare       errorbars
  425.     gnuplot        gnuplot>       term           square         
  426.     angles         arrow          autoscale      bar
  427.     bmargin        border         boxwidth       clabel
  428.     clip           cntrparam      contour        data
  429.     dgrid3d        dummy          encoding       format
  430.     function       grid           hidden3d       isosamples
  431.     key            keytitle       label          lmargin
  432.     logscale       mapping        margin         missing
  433.     multiplot      mx2tics        mxtics         my2tics
  434.     mytics         mztics         noarrow        noautoscale
  435.     noborder       noclabel       noclip         nodgrid3d
  436.     nokey          nolabel        nologscale     nomultiplot
  437.     nomx2tics      nomxtics       nomy2tics      nomytics
  438.     nomztics       noparametric   nopolar        nosurface
  439.     nox2dtics      nox2mtics      nox2tics       nox2zeroaxis
  440.     noxdtics       noxmtics       noxtics        noxzeroaxis
  441.     noy2dtics      noy2mtics      noy2tics       noy2zeroaxis
  442.     noydtics       noymtics       noytics        noyzeroaxis
  443.     nozdtics       nozeroaxis     nozmtics       noztics
  444.     offsets        origin         output         parametric
  445.     pointsize      polar          punctuation    rmargin
  446.     rrange         samples        size           specify
  447.     style          surface        syntax         terminal
  448.     tics           ticscale       ticslevel      time
  449.     timefmt        title          tmargin        trange
  450.     urange         view           vrange         x2dtics
  451.     x2label        x2mtics        x2range        x2tics
  452.     x2zeroaxis     xdata          xdtics         xlabel
  453.     xmtics         xrange         xtics          xzeroaxis
  454.     y2dtics        y2label        y2mtics        y2range
  455.     y2tics         y2zeroaxis     ydtics         ylabel
  456.     ymtics         yrange         ytics          yzeroaxis
  457.     zdtics         zero           zeroaxis       zlabel
  458.     zmtics         zrange         ztics
  459.     threaded  
  460. } 
  461.  
  462.  
  463.  
  464.     ### MAGENTA WORDS ###
  465.  
  466. set gpMageWords  { 
  467.     with lines using  points  multiplot> mac gx eps enh
  468.     info-gnuplot dartmouth edu bug-gnuplot { \@ }
  469.     Send comments and requests for help to
  470.     Send bugs, suggestions and mods to
  471. } 
  472.                    
  473.  
  474.  
  475.     ### CYAN WORDS ###
  476.  
  477. set gpCyanWords  {   post mac     macintosh      texdraw
  478.     aifm           atari          dumb           enhpost
  479.     epson          epson180       epson60        fig
  480.     gpic           hpljii         imagen         iris4d
  481.     latex          linux          mf             mif
  482.     mtos           nec-cp6        pbm            pcl5
  483.     postscript     pslatex        regis          starc
  484.     table          tandy60        tgif           uniplex
  485.     vdi            windows        unknown        pstricks
  486.     png            dxf            cgm            gif
  487.     emtex          pstex          eepic          tpic
  488.     pstricks       texdraw
  489.     Thomas Williams, Colin Kelley and many others 
  490.     Russell Lang, Dave Kotz, John Campbell. Gershon Elber
  491. } 
  492.  
  493. #
  494. # Color keywords for GPLT mode
  495. #
  496. regModeKeywords  -i "\}" -i "\{"  -i ">" -i "<" -i ")" -i "("  -i "/" -i "\\"  \
  497.     -i "\]" -i "\[" -i "\$" -i "\'" -i "\`" -i ">" -i "<" -i "^" -i "_" \
  498.     -I $GPLTmodeVars(bracesColor) \
  499.      -e {#} -c $GPLTmodeVars(commentColor) \
  500.     -s $GPLTmodeVars(stringColor)  \
  501.     -k red GPLT $gpRedWords
  502. regModeKeywords -a -k blue GPLT $gpBlueWords
  503. regModeKeywords -a -k green GPLT $gpGreenWords
  504. regModeKeywords -a -k magenta GPLT $gpMageWords
  505. regModeKeywords -a -k cyan GPLT $gpCyanWords
  506.  
  507. #  (DO NOT ERASE NEXT TWO LINES)
  508. ###EGK
  509.  
  510.  
  511.  
  512. #define saved globals
  513. ensureset GnuplotSig                  {GPLT}  
  514. ensureset gp_CREA                  {ALFA}  
  515. ensureset gp_TYPE                  {TEXT}  
  516. ensureset gp_CreatorList [list] 
  517. ensureset gp_TypeList [list] 
  518. ensureset gp_CreatorNames [list] 
  519. ensureset gp_GEOM [list]
  520. ensureset gp_HistGEOM [list ]
  521. ensureset headerSuffices {$GPLTmodeSuffixes}
  522. ensureset sourceSuffices {$GPLTmodeSuffixes}
  523.  
  524. if {[llength $gp_CreatorList] == 0 \
  525.  || [llength $gp_CreatorList] != [llength $gp_CreatorNames] \
  526.  || [llength $gp_CreatorList] != [llength $gp_TypeList]} {
  527.     set gp_CreatorList [list ALFA GPLT]
  528.     set gp_TypeList [list  TEXT TEXT]
  529.     set gp_CreatorNames [list  alpha gnuplot]
  530.     set gp_CREA {ALFA} 
  531.     set gp_TYPE {TEXT}
  532. }
  533.  
  534. #remove unused, previously saved globals
  535. if { [info exists GPLTmodeVars(FSIG)]}  { 
  536.     removeArrDef  GPLTmodeVars FSIG
  537.     unset GPLTmodeVars(FSIG)
  538. } 
  539. if { [info exists GPLTmodeVars(CREA)]}  { 
  540.     removeArrDef  GPLTmodeVars  CREA
  541.     unset GPLTmodeVars(CREA)
  542. } 
  543. if { [info exists GPLTmodeVars(TYPE)]}  { 
  544.     removeArrDef  GPLTmodeVars TYPE
  545.     unset GPLTmodeVars(TYPE)
  546. } 
  547.  
  548.  
  549. #############################################################################
  550. #
  551. #  global variables
  552. #
  553.  
  554. set gp_CommandHist [list]
  555. set gp_CommandNum 0
  556.  
  557. set gp_Prompt       "gnuplot> "
  558. set gp_MultiPrompt  "multiplot> "
  559. set gp_ContPrompt   "> "
  560. set gp_HelpPrompt   ": "
  561.  
  562. set gp_Prompts [list $gp_Prompt $gp_ContPrompt $gp_MultiPrompt ]
  563.  
  564. set gp_Console  "  gnuplot  "
  565. set gp_Hist     "  history  "
  566. set gp_Graph     "  graph  "
  567. set gp_sl [list]
  568.  
  569. #############################################################################
  570. #
  571. #  Bind some keys
  572. #
  573.  
  574. # Editing .gnu files
  575.  
  576. Bind '\r' <z>  GP_DoLine             "GPLT"
  577.  
  578. # Command Window
  579.  
  580. Bind '\r'      GP_CarriageReturn     "GPLT"
  581. Bind up        GP_PrevCommand        "GPLT"
  582. Bind down      GP_NextCommand        "GPLT"
  583. Bind '1'  <c>  GP_Console            "GPLT"
  584. Bind '2'  <c>  GP_Activate           "GPLT"
  585. Bind '3'  <c>  GP_DumpHistory        "GPLT"
  586. Bind 'f'  <sc>  GP_SaveAndExecute    "GPLT"
  587.  
  588.  
  589. # Repeat menu keys for command window
  590.  
  591. set gp_Launched {0}
  592.  
  593.  
  594.  
  595.  
  596. #############################################################################
  597. #
  598. #  gnuplot Menu stuff
  599. #
  600.  
  601. Menu -n    $GnuplotMenu -p GnuplotMenuItem    {                         
  602.     "/1console"                                                     
  603.     "/2graph"                                                     
  604.     "/3history"                                                     
  605.     "(-"    
  606.     "setWorkingFolder..."
  607.     "/P<UchoosePlotFile..."
  608.     "/L<Uload..."                                         
  609.     {Menu -n "saveSettings" -p GnuplotMenuItem  {
  610.     "/S<Uall"                  
  611.     "(-"
  612.     "setCmds" 
  613.     "functions"         
  614.     "variables"    
  615.     }}
  616.     "(-"                                                                                                                                  
  617.     "/N<UnewScriptWin"                                                 
  618.     "/F<UsaveAndExecute"                                         
  619.     "(-"    
  620.     {Menu  -s -m -n mathFunctions -p GnuplotMenuItem  {
  621.     {Menu  -s -m -n Trigonometric -p GnuplotMenuItem  {
  622.         "cos"
  623.         "tan"
  624.         "sin"
  625.     }}
  626.     {Menu  -s -m -n InverseTrig -p GnuplotMenuItem  {
  627.         "acos"
  628.         "asin"
  629.         "atan"         
  630.     }}
  631.     {Menu  -s -m -n Hyperbolic -p GnuplotMenuItem  {
  632.         "cosh"
  633.         "sinh"
  634.         "tanh"
  635.     }}
  636.     {Menu  -s -m -n special -p GnuplotMenuItem  {
  637.         "erf"            
  638.         "erfc"           
  639.         "inverf"                                  
  640.         "(-"
  641.         "gamma"                                       
  642.         "igamma"                        
  643.         "lgamma"                                      
  644.         "(-"
  645.         "ibeta"                                        
  646.     }}
  647.     {Menu  -s -m -n bessel -p GnuplotMenuItem  {
  648.         "besj0"
  649.         "besj1"
  650.         "besy0"
  651.         "besy1"         
  652.     }}
  653.     "(-"
  654.     "abs"  
  655.     "arg"               
  656.     "sgn"     
  657.     "sqrt"
  658.     "(-"
  659.     "exp"
  660.     "log"
  661.     "log10"                                  
  662.     "(-"
  663.     "ceil"           
  664.     "floor" 
  665.     "rand"
  666.     "norm"
  667.     "invnorm"
  668.     "(-"
  669.     "real" 
  670.     "imag"
  671.     "int"
  672.     }}
  673.     "(-"    
  674.     "/M<UdoSelection"                                             
  675.     "doLine"                                                         
  676.     "(-"
  677.     {Menu -n gnuplotOptions -p GnuplotMenuItem     {         
  678.     "setPointSize..."
  679.     "(-"    
  680.     "/H<UclearHistory"
  681.     "(-"    
  682.     {Menu -n setOutputCreator -p GnuplotMenuItem     {         
  683.         "select..."                                                 
  684.         "add..."                                                     
  685.         "delete..."                                                 
  686.     }}
  687.     "keywordColoring..."
  688.     }}                
  689.     "readme..."
  690.     "/2switchTo gnuplot"                                         
  691.     "/Q<Uquit gnuplot"                                             
  692. }                                                                         
  693.  
  694.  
  695.      # Attempt to overload the following command keys:
  696.      #
  697.        #  Command-1  :  Console
  698.         #  Command-2  :  Graph
  699.         #  Command-3  :  History
  700.                         
  701.                         
  702.                         
  703. proc    GnuplotMenuItem {menu item} {                                 
  704.     #global GnuplotMenu                                                     
  705.     switch $item {                                                 
  706.     "console"                GP_Console                     
  707.     "graph"                     GP_Activate                     
  708.     "gnuplot"                     GP_Activate                     
  709.     "history"                GP_DumpHistory                     
  710.     "newScriptWin"            GP_NewWindow         
  711.     "choosePlotFile..."        GP_ChoosePlotFile         
  712.     "saveAndExecute"         GP_SaveAndExecute         
  713.     "load..."                 GP_LoadScript             
  714.     "all"                     { GP_SaveSettings "" }             
  715.     "setCmds"                 { GP_SaveSettings "set" }             
  716.     "functions"                 { GP_SaveSettings "fun" }             
  717.     "variables"                 { GP_SaveSettings "var" }             
  718.     "doSelection"             GP_DoSelection             
  719.     "doLine"                    GP_DoLine                          
  720.     "switchTognuplot"        GP_Activate                 
  721.     "select..."                 GP_SelectCreator         
  722.     "add..."                     GP_AddCreator             
  723.     "delete..."                 GP_DeleteCreator         
  724.     "clearHistory"            GP_ClearHistory             
  725.     "quitgnuplot"             GP_Quit                     
  726.     "keywordColoring..."        editCurrentModePrefs
  727.     "setWorkingFolder..."   GP_SetCWD
  728.     "setPointSize..."       GP_SetPTSZ
  729.     "readme..."                 GP_Readme
  730.     "labels..."                { GP_Dialog "labl" }
  731.     "line styles..."            { GP_Dialog "line" }
  732.     "text format..."            { GP_Dialog "text" }
  733.     "labels..."                { GP_Dialog "labl" }
  734.     "gxText"                { GP_Dialog "gxtx" }
  735.     "offsets..."             { GP_Dialog "oset" }
  736.     default                    { insertText [string tolower $item ] () 
  737.     backwardChar    
  738.     }
  739. }                                                                 
  740. }                                                                         
  741.                                                                              
  742. #############################################################################
  743. #
  744. #  setup the event handler for Alpha/gnuplot interapp communication
  745. #  This file only works with Alpha 7.0 or newer so we assume
  746. #  eventHandling actually works.
  747. #
  748.  
  749. if { 1 } {
  750.     # Setup event Handler for STDOUT
  751.     eventHandler GPSE OUTP "GP_STDOUThandler"  
  752.     
  753.     # Setup event Handler for systems w/o ThreadManager
  754.     eventHandler GPSE ERRP "GP_STDERRhandler"
  755.     
  756.     # *ICInitializeCommand // This initializes the console.  
  757.     # Alpha eventhandler is needed.
  758.     # 'GPIC init'
  759.     eventHandler GPIC init "GP_ConsoleH"
  760.     # 
  761.     # *ICInitializePath // sends the working directory as 
  762.     # stored in preferences.
  763.     # Since you aren't displaying the working directory anywhere, 
  764.     # we can ignore
  765.     # this for now.
  766.     # 'GPIC path', contains a string in the direct object.
  767.     eventHandler GPIC path "GP_SendPath"
  768.     # 
  769.     # ICExecute // Tells the console to execute a gnuplot command.  
  770.     # I can't think
  771.     # of a reason for this one in Alpha.  The menuing system uses 
  772.     # this one in the current console.  We could define an event however.
  773.     # 
  774.     # 
  775.     # ICInsertCommand // Might be slick.  An example of what this 
  776.     # does is where
  777.     # functions get pasted into the command line.  Not absolutely necessary
  778.     # though.
  779.     # 'GPIC' 'inse'
  780.     eventHandler GPIC inse "GP_INSEhandler"
  781.     # 
  782.     # ICComeToFront  // The function will bring Alpha to the front.  
  783.     # No handler needed.
  784.     # 
  785.     # *ICBringGnuplotToFront // Handler needed.  When you get this one, bring
  786.     # gnuplot to the front.
  787.     # 'GPIC tofr'
  788.     eventHandler GPIC tofr "GP_ActivateH"
  789.     # 
  790.     # *ICHandleAEReply // You'll get this one if somebody used a 
  791.     # gnuplot menu to
  792.     # do something which necessitated a reply from gnuplot. The 
  793.     # gnuplot interface
  794.     # will pass the reply to you for display.
  795.     # 'GPIC repl', handle this one just like the reply from your exec event.
  796.     eventHandler GPIC repl "GP_STDERRhandler"
  797.     # 
  798.     # *ICMakeNewDocument  // It sounds like this one is working already.
  799.     # 'core crel'
  800.     eventHandler core crel "GP_NewWindowH"
  801.     # 
  802.     # *ICOpenDocument // Alpha already knows about this one.
  803.     # --already defined in alpha---
  804.     
  805.     # The event 'GPIC' 'cbye' is now sent whenever gnuplot quits.
  806.     # This will let you close the console if somebody quits 
  807.     # gnuplot some other way. You could
  808.     # use this to eliminate your 'quit' trapping if you want.
  809.     eventHandler GPIC cbye "GP_CloseH"
  810.     # I also defined a new event: 'GPIC' 'EXEC'.  All you need to 
  811.     # do is take the
  812.     # data and send it back to gnuplot as a 'GPSE' 'exec' event. 
  813.     # This is a kludge
  814.     # to make the commands in the gnuplot app menus work. 
  815.     # It will eventually go away.
  816.     eventHandler GPIC EXEC "GP_Kludge"
  817.     
  818.     proc GP_Kludge {it} {
  819.     set outit  [GP_filtercurlyq $it]
  820.     GP_STDERR $outit
  821.     if { $it == "Unable to find process" } GP_Quit
  822.     return 0
  823.     }    
  824.     
  825.     proc GP_STDERRhandler {it} {
  826.     global gp_cwd
  827.     set outit  [GP_filtercurlyq $it]
  828.     GP_ExtractPath $it
  829.     GP_Results $outit
  830.     if { $it == "Unable to find process" } GP_Quit
  831.     return 0
  832.     }
  833.     
  834.     proc GP_STDOUThandler {it} {
  835.     global gp_cwd gp_Out gpTermCt
  836.     global gp_Console gp_Graph  
  837.     global GPLTmodeVars gp_Launched gp_GEOM
  838.     global gp_Prompt  gp_cwd GnuplotMenu 
  839.     
  840.     set outit  [GP_filtercurlyq $it]
  841.     GP_ExtractPath $it
  842.     set wins [winNames]    
  843.     
  844.     set itLen [ string length "$it" ]
  845.     set termID [ string range "$outit" 0 20 ]
  846.     set termType [ string range "$it" [expr $itLen -25] [expr $itLen -1] ] 
  847.     
  848.     if { [ string first "Sorry," "$termID" ] == 0 } {
  849.         insertText -w  $gp_Console "\n$outit"
  850.         return
  851.         
  852.     } elseif { [ string first "% GNUPLOT: LaTeX" "$termID" ] == 0 } {           
  853.         incr gpTermCt 1
  854.         #            set gp_Out [getline "Enter name of output console?" "* TeX output $gpTermCt *" ]
  855.         set gp_Out "* TeX output $gpTermCt *"
  856.         set theMode "TeX"
  857.         
  858.     } elseif { [string first "%!PS-Adobe" "$termID" ] == 0 } {
  859.         incr gpTermCt 1
  860.         #            set gp_Out [getline "Enter name of output console?" "* PS output $gpTermCt *" ]
  861.         set gp_Out "* PS output $gpTermCt *"
  862.         set theMode "PS"
  863.         
  864.     } elseif { [string first "<MIFFile 3.00>" "$termID" ] == 0 } {
  865.         incr gpTermCt 1
  866.         #            set gp_Out [getline "Enter name of output console?" "* MIF output $gpTermCt *" ]
  867.         set gp_Out "* MIF output $gpTermCt *"
  868.         set theMode "PS"
  869.         
  870.     } elseif { [string first "% GNUPLOT: dxf" "$termID" ] >= 0 } {
  871.         incr gpTermCt 1
  872.         #            set gp_Out [getline "Enter name of output console?" "* misc output $gpTermCt *" ]
  873.         set gp_Out "* misc output $gpTermCt *"
  874.         set theMode "TEXT"
  875.         
  876.     } elseif { [string first "if unknown cmbase" "$termID" ] == 0 } {
  877.         incr gpTermCt 1
  878.         #            set gp_Out [getline "Enter name of output console?" "* MF output $gpTermCt *" ]
  879.         set gp_Out "* MF output $gpTermCt *"
  880.         set theMode "TeX"
  881.         
  882.     } elseif { [string first "#Curve" "$termID" ] == 0 } {
  883.         incr gpTermCt 1
  884.         #            set gp_Out [getline "Enter name of output console?" "* misc output $gpTermCt *" ]
  885.         set gp_Out"* misc output $gpTermCt *"
  886.         set theMode "TEXT"
  887.         
  888.     } elseif { [ string index "$termID" 0  ] == " " && [ string first "TERM:“dumb”" "$termType" ] > 0 } {
  889.         set ns "\n"
  890.         append ns $outit
  891.         set outit "$ns"
  892.         set gp_Out $gp_Console
  893.         #set theMode "TEXT"
  894.         
  895.     } elseif { ![info exists gp_Out ] || [lsearch $wins $gp_Out ] < 0 } {
  896.         incr gpTermCt 1
  897.         #            set gp_Out [getline "Enter name of output console?" "* misc output $gpTermCt *" ]
  898.         set gp_Out "* misc output $gpTermCt *"
  899.         set theMode "TEXT"
  900.     }
  901.     
  902.     if { $gp_Out == "" } {set gp_Out $gp_Console }
  903.     
  904.     if {  [lsearch $wins $gp_Out ]  < 0 } { 
  905.         new  -n $gp_Out -m $theMode
  906.         #set wins [winNames]
  907.         set gp_Out [lindex [winNames] 0]
  908.     } else {
  909.         #catch [ bringToFront $gp_Out ] ans
  910.         #if { ![info exists ans] } { return }
  911.     }
  912.     
  913.     insertText -w $gp_Out $outit
  914.     GP_Console
  915.     if { $it == "Unable to find process" } GP_Quit
  916.     return 0
  917.     }
  918.     
  919.     proc GP_INSEhandler {it} {
  920.     global gp_Console gp_TYPE gp_CREA GnuplotSig
  921.     set res [GP_filtercurlyq $it]
  922.     set wins [winNames]
  923.     if { ( "$res" != "\n" ) & ( "$res" != "" ) & ( "$res" != "\r" ) } {
  924.         if { [ lsearch $wins $gp_Console  ] >= 0} {
  925.         bringToFront $gp_Console    
  926.         }        
  927.     }        
  928.     
  929.     goto [maxPos]        
  930.     insertText -w $gp_Console $res
  931.     
  932.     
  933.     set paren  [string first "()" $res ]
  934.     
  935.     if { $paren >= 1 } {
  936.         goto [expr [maxPos] - $paren + 2]
  937.     }
  938.     
  939.     if { "$res" == "\r" }  {
  940.         GP_SendCommand "" 3600
  941.     } elseif { "$res" == "\n" }  {
  942.         GP_SendCommand "" 3600 
  943.     } elseif { "$res" == "" }  {
  944.         GP_SendCommand "" 3600
  945.     } else {
  946.         return 0
  947.     }
  948.     
  949.           
  950.     }
  951.     
  952.     
  953.     proc GP_SendPath { dummyVar } {
  954.     global gp_cwd
  955.     # display current path on status bar
  956.     set gp_cwd [ GP_filtercurlyq $dummyVar ]
  957.     message "Current gnuplot Path ==> $gp_cwd"
  958.     }
  959.     
  960.     proc GP_ConsoleH { dummyVar } { 
  961.     GP_Console   
  962.     # this is a dummy routine
  963.     }  
  964.     
  965.     proc GP_NewWindowH { dummyVar } { 
  966.     switchTo 'ALFA'
  967.     GP_NewWindow   
  968.     # this is a dummy routine
  969.     }  
  970.     
  971.     proc GP_ActivateH { dummyVar } { 
  972.     GP_Activate   
  973.     # this is a dummy routine
  974.     }  
  975.  
  976.     proc GP_CloseH { dummyVar } { 
  977.     GP_Quit   
  978.     # this is a dummy routine
  979.     }  
  980.  
  981. } else { 
  982.     set GPLTmodeVars(EventHandler) 0 
  983. }
  984.  
  985.  
  986. #############################################################################
  987. #
  988. #  Find and launch gnuplot
  989. #
  990. #
  991.  
  992. proc GP_Check {} {
  993.     global GnuplotMenu gp_Launched GPLTmodeVars
  994.     
  995.     # Check if gnuplot app is running.  If not, open the app named in 
  996.     # $ (if defined) or have the user select an app via a
  997.     # standard file dialog.  Leave the gnuplot app in the background.
  998.     
  999.     if {![catch {app::launchAnyOfThese {GPSE GPLT} GnuplotSig}]} {
  1000.     set gp_Launched 1
  1001.     enableMenuItem $GnuplotMenu "quit gnuplot" on
  1002.     enableMenuItem $GnuplotMenu "graph" on
  1003.     enableMenuItem $GnuplotMenu "history" on
  1004.     enableMenuItem $GnuplotMenu "saveSettings" on  
  1005.     enableMenuItem gnuplotOptions "setPointSize..." on  
  1006.     enableMenuItem $GnuplotMenu "setWorkingFolder..." on
  1007.     enableMenuItem $GnuplotMenu "choosePlotFile..."     on
  1008.     return 0
  1009.     } else {
  1010.     return -1
  1011.     }
  1012. }
  1013.  
  1014. #############################################################################
  1015. #
  1016. #  Goto command window
  1017. #
  1018. # 
  1019. proc GP_Console {  } {
  1020.     global gp_Console  GPLTmodeVars 
  1021.     global gp_Launched gp_Prompt 
  1022.     
  1023.     # Check if gnuplot app is running.  If not, open the app named in 
  1024.     # $ (if defined) or have the user select an app via a
  1025.     # standard file dialog.  Leave the gnuplot app in the background.
  1026.     
  1027.     set wins [winNames]
  1028.     if { [lsearch $wins $gp_Console ]  >= 0} {
  1029.     bringToFront $gp_Console
  1030.     goto [maxPos]
  1031.     } else   {
  1032.     eventHandler GPIC cbye "GP_CloseH"
  1033.     GP_NewConsole
  1034.     }  
  1035. }
  1036.  
  1037.  
  1038. #############################################################################
  1039. #
  1040. #  Create  command window
  1041. #
  1042. # 
  1043. proc GP_NewConsole { } {
  1044.     global  gp_Console gp_Graph  gp_Path
  1045.     global  GPLTmodeVars gp_Launched gp_GEOM GP_GraphMenu
  1046.     global gp_Prompt  gp_cwd GnuplotMenu  gp_home gp_scriptItems
  1047.     
  1048.     if {[llength $gp_GEOM] != "4" } {            
  1049.     GP_Readme
  1050.     new -n $gp_Console -m GPLT
  1051.     set gp_GEOM [ getGeometry $gp_Console ] 
  1052.     }   
  1053.     set wd [lindex $gp_GEOM 2]
  1054.     set ht [lindex $gp_GEOM 3]
  1055.     set top [lindex $gp_GEOM 1]
  1056.     set left [lindex $gp_GEOM 0]
  1057.     set gY [expr $top - 15]
  1058.     set gX [expr $left + $wd + 5]
  1059.     set gW [expr 72 ]
  1060.     set gH [expr 50 ]
  1061.     
  1062.     set wins [winNames]    
  1063.     if {  [lsearch $wins $gp_Console ]  < 0 } { 
  1064.     new -g $left $top $wd $ht -n $gp_Console -m GPLT
  1065.     }
  1066.     catch { setWinInfo -w $gp_Console shell 1 } jjj
  1067.     GP_GraphButton
  1068.     if { $GPLTmodeVars(LiveHist) } GP_DumpHistory
  1069.     insertText -w $gp_Console  "\nWelcome to Alpha's gnuplot 3.6 shell.\n" 
  1070.     GP_Check
  1071.     bringToFront $gp_Console
  1072.     
  1073.     set res [ GP_STDERR ""  3600 ]
  1074.     insertText -w $gp_Console "$res"
  1075.     
  1076.     # The following is a huge kludge...to deal with accidentally
  1077.     # closing the gnuplot window
  1078.     if    { $res == "" }    {
  1079.     GP_Results "gnuplot> "
  1080.     }
  1081.     # end kludge
  1082.     
  1083.     # Now setup the CLIE
  1084.     if {[string first "Using threaded console."  $res ] != {-1} \
  1085.       | [string first "ppc" [string tolower $res ] ] != {-1}  } { 
  1086.     set ress [GP_STDERR "" 3600 ]
  1087.     }
  1088.     
  1089.     set gp_home "$gp_cwd"
  1090.     append gp_home "Scripts:*" 
  1091.     
  1092.     
  1093.     set cdir [pwd]
  1094.     set gp_Path "$gp_home"
  1095.     
  1096.     GP_RebuildScriptMenu
  1097.     cd "$cdir"
  1098.     
  1099.     set gp_home [string range "$gp_home" 0 [expr [string length "$gp_home" ] -2 ] ]
  1100.     message "Current gnuplot Path ==> $gp_cwd"
  1101.     
  1102. }
  1103.  
  1104.  
  1105. ################################################################################
  1106. #
  1107. #  Rebuild the script menu 
  1108. #      
  1109. #
  1110.  
  1111. proc GP_RebuildScriptMenu {} {
  1112.     global gp_cwd GP_GraphMenu gp_scriptItems gp_openItems gp_Path
  1113.  
  1114.     set gp_scriptItems [list]
  1115.     set gp_openItems [list]
  1116.     set gp_home "$gp_Path"
  1117.  
  1118.     set gp_sl [ GP_ScriptList "$gp_home" "Scripts" ]
  1119.     set gp_sm [concat Menu -m -n "Scripts" -p GP_ScriptMenuItems [list "$gp_sl"]  ]
  1120.     
  1121.     # kill the current floating menu (if any)
  1122.     GP_KillGraphButton
  1123.     
  1124.     Menu  -n "$GP_GraphMenu" -p GnuplotMenuItem [list \
  1125.       "gnuplot" \
  1126.       "(-" \
  1127.       {Menu -m -s -n "Settings" -p GnuplotMenuItem  {\
  1128.       "line styles...&" \
  1129.       "text format...&" \
  1130.       "labels...&" \
  1131.       "offsets...&" \
  1132.     }}\
  1133.     "(-" \
  1134.     "$gp_sm" \
  1135.     ]
  1136.      
  1137.     GP_GraphButton
  1138. }
  1139.    
  1140.     
  1141. ################################################################################
  1142. #
  1143. #  Generate a new script window 
  1144. #      
  1145. #
  1146.  
  1147. proc GP_NewWindow {} {
  1148.     set wname "Untitled.gp"
  1149.     new -n $wname -m GPLT
  1150.     GP_uFD
  1151.     insertText "#\r"
  1152.     setWinInfo -w $wname dirty 0
  1153. }
  1154.  
  1155.  
  1156.  
  1157.  
  1158. #############################################################################
  1159. #
  1160. #  Tell gnuplot to quit
  1161. #
  1162.  
  1163. proc GP_Quit {} {
  1164.     global gp_Console  
  1165.     
  1166.     switchTo 'ALFA'
  1167.     set wins [winNames]
  1168.     if { [set winThere [lsearch $wins $gp_Console ] ] >= 0} {
  1169.     set name [lindex $wins $winThere]
  1170.     bringToFront $name
  1171.     killWindow
  1172.     } 
  1173.     
  1174. }
  1175.  
  1176.  
  1177. #############################################################################
  1178. #
  1179. #  Switch to gnuplot
  1180. #
  1181.  
  1182. proc GP_Activate {  } {
  1183.     global   GnuplotSig 
  1184.     
  1185.     if { ![GP_Check] } { 
  1186.     switchTo \'$GnuplotSig\' 
  1187.     }    
  1188. }
  1189.  
  1190.  
  1191. #############################################################################
  1192. #
  1193. #  Carriage return for command window
  1194. #
  1195.  
  1196. proc GP_CarriageReturn {} {
  1197.     global gp_CommandHist gp_CommandNum  gp_Console gp_Hist gp_Graph 
  1198.     
  1199.     #enter only if cr in console window...
  1200.     set wins [winNames]
  1201.     if { [lsearch $wins $gp_Console ]  == 0  } {
  1202.     setWinInfo -w $gp_Console dirty 0            
  1203.     set pos [getPos]
  1204.     
  1205.     # I look for > and : instead of the proper prompts... Hmmm...
  1206.     # if -1 then we are not on an input line...
  1207.     # or we could be waiting for a pause...
  1208.     # which should be on the last line...        
  1209.     set ind [string first ">" [getText [lineStart $pos] $pos] ]
  1210.     if {$ind < 0} {
  1211.         set ind [string first ":" [getText [lineStart $pos] $pos] ]
  1212.         if {$ind < 0} {
  1213.         endOfBuffer
  1214.         # just send a cr to the server
  1215.         insertText "\r"
  1216.         GP_SendCommand [getText [lineStart $pos] $pos] 400
  1217.         return 
  1218.         }
  1219.     }
  1220.     set lStart [pos::math [lineStart $pos]+ [expr $ind+2]]
  1221.     endOfLine
  1222.     set lEnd  [getPos]  
  1223.     set scriptName [getText $lStart $lEnd]
  1224.     insertText "\r"
  1225.     # if not on last line, then replace text on last line...
  1226.     GP_SendCommand "$scriptName"  102
  1227.     } elseif {[lsearch $wins $gp_Hist ] == 0} {
  1228.     # execute the current command in the history window...
  1229.     GP_HistgotoMatch
  1230.     } else {
  1231.     insertText "\r"
  1232.     }
  1233. }
  1234.  
  1235.  
  1236.  
  1237. #############################################################################
  1238. #
  1239. #  Filter curlyq's out of sting...We may need to be smarter 
  1240. #    about this later
  1241. #
  1242. proc GP_filtercurlyq { it } {
  1243.     
  1244.     set from [string first "“" $it]
  1245.     set to [string first "”" $it]
  1246.     set ans [string range $it [expr $from + 1] [expr $to - 1] ]
  1247.     if { ![expr [string length $ans] -1 ] } { 
  1248.     regexp -nocase {[a-z0-9]} $ans nans
  1249.     if {[info exists nans]} {
  1250.         set ans $nans
  1251.     } else {
  1252.         set ans ""
  1253.     }
  1254.     
  1255.     
  1256.     }
  1257.     
  1258.     return $ans
  1259. }
  1260.  
  1261. #############################################################################
  1262. #
  1263. #  Extract current gnuplot path from event reply
  1264. #
  1265.  
  1266. proc GP_ExtractPath { ans } {
  1267.     global gp_cwd 
  1268.     
  1269.     # We need to be tricky since I'm not sure if Dave is sending the
  1270.     # path in an alis, or as a string
  1271.     #    regexp {“(.*)(”.*“)(.*)”} "$ans" dummy spec1 spec2 spec3   
  1272.     
  1273.     set frst [ string first "PSTR:" "$ans" ]
  1274.     set lst [ string first "TERM:" "$ans" ]
  1275.     
  1276.     if { ($frst > 0) } {
  1277.     if { $lst <= 0 } { set lst [string length $ans ] }
  1278.     set ans [string range "$ans" $frst $lst ]
  1279.     regexp {“(.*)”} "$ans" dummy  spec3   spec1 
  1280.     if {[info exists spec3]} {
  1281.         set ngp_cwd $spec3
  1282.         if {$ngp_cwd != "" } {
  1283.         set gp_cwd "$ngp_cwd"
  1284.         return 0
  1285.         }         
  1286.     }
  1287.     }
  1288.     
  1289.     regexp {«(.*)»} "$ans" dummy spec
  1290.     if {[info exists spec]} {
  1291.     set ngp_cwd [specToPathName $spec]
  1292.     if {$ngp_cwd != "" } {
  1293.         set gp_cwd "$ngp_cwd"
  1294.         return 0
  1295.     }         
  1296.     }
  1297. }    
  1298.   
  1299.     
  1300.  
  1301. #############################################################################
  1302. #
  1303. #  Send a command to gnuplot and return stderr!
  1304. #
  1305.  
  1306. proc GP_STDERR { mycommand tmout } {
  1307.     global  gp_cwd  GPLTmodeVars GnuplotSig gp_TYPE gp_CREA
  1308.     
  1309.     if { ! $GPLTmodeVars(EventHandler) } {
  1310.     catch { AEBuild -t $tmout -r \'$GnuplotSig\' GPSE  "exec" ---- \
  1311.       [curlyq $mycommand] {CREA:} "$gp_CREA" \
  1312.       {TYPE:} "$gp_TYPE" } ans 
  1313.     } else {
  1314.     catch { AEBuild -t $tmout -r \'$GnuplotSig\' GPSE  "exec" ---- \
  1315.       [curlyq $mycommand] {CLIE:} "ALFA" {CREA:} "$gp_CREA" \
  1316.       {TYPE:} "$gp_TYPE" } ans 
  1317.     } 
  1318.     if { $ans == "Unable to find process"  }  GP_Quit        
  1319.     GP_ExtractPath $ans
  1320.     return [GP_filtercurlyq $ans]
  1321. }
  1322.  
  1323.  
  1324. #############################################################################
  1325. #
  1326. #  Send a command to gnuplot  
  1327. #
  1328.  
  1329. proc GP_SendCommand { mycommand tmout} {
  1330.     global GPLTmodeVars GnuplotMenu  gp_CommandHist gp_Rsp  gp_CommandNum  
  1331.     global gp_Prompts gp_Launched 
  1332.     
  1333.     watchCursor
  1334.     #    GP_Console
  1335.     
  1336.     set tmout 300
  1337.     #display command on the last line of the console if its not already there
  1338.     GP_DispCommand "$mycommand"
  1339.     if { [string trim $mycommand '\r'] != {} } {
  1340.     GP_AddToHist $mycommand
  1341.     }
  1342.     
  1343.     # send gnuplot a command
  1344.     # display the stderr results on the screen
  1345.     # The eventHandler above will display the stdout results first
  1346.     set stderr [GP_STDERR "$mycommand\r"  $tmout ]
  1347.     
  1348.     # Null stderr can mean two things.  
  1349.     #   (1) a pause 
  1350.     #   (2) if no thread manager available, it could mean go back 
  1351.     #       and retrieve the stderr which will help 68k systems 
  1352.     #       work since eventHandler is broken in 6.01
  1353.     
  1354.     # This can probably be cleaned up with a little effort
  1355.     # What I'm doing in the next line is taking care of the 
  1356.     # non-threaded macs...
  1357.     # which always return "".  Its harmless otherwise.
  1358.     #if {$stderr == ""  & $mycommand != "" } { set stderr [GP_STDERR "" $tmout ] }
  1359.     #if { $GPLTmodeVars(EventHandler) == "0" &  $stderr == "" } { set stderr "gnuplot> " }
  1360.     if { $stderr != "" } { 
  1361.     GP_Results     "$stderr" 
  1362.     } else {
  1363.     #GP_Results ""
  1364.     }
  1365.     
  1366.     blink [getPos]
  1367. }
  1368.   
  1369.  
  1370. #############################################################################
  1371. #
  1372. #  Save current window and execute it in GNUPLOT, just like GNUPLOT 
  1373. #  command ;)
  1374. #
  1375.  
  1376. proc GP_SaveAndExecute {} {
  1377.     
  1378.     if {[winDirty]} {save}
  1379.     
  1380.     # Get the path of the current window and it's name
  1381.     
  1382.     # Set the working directory to the current window's
  1383.     # current dir.
  1384.     set GPLTFilePath "cd \'\:"
  1385.     set GPLTFile [lindex [winNames -f] 0]
  1386.     set GPLTFP [file dirname $GPLTFile]
  1387.     append  GPLTFilePath  $GPLTFP ":\'"
  1388.     
  1389.     # use unix style file paths 
  1390.     regsub -all ":" $GPLTFilePath {/} GPLTFilePath
  1391.     
  1392.     # get the load command ready...
  1393.     set scriptName  "load \'"
  1394.     append scriptName [file tail $GPLTFile] "\'"
  1395.     
  1396.     # Change current working directory to window's
  1397.     GP_SendCommand $GPLTFilePath 600
  1398.     
  1399.     # Do the script
  1400.     GP_SendCommand $scriptName 700
  1401. }
  1402.   
  1403.  
  1404. #############################################################################
  1405. #
  1406. #  Write results to command window  
  1407.  
  1408. proc GP_Results { res } {
  1409.     global gp_Console gp_cwd
  1410.     insertText -w "$gp_Console"  "\n" $res
  1411.     setWinInfo -w "$gp_Console" dirty 0
  1412.     message "Current gnuplot Path ==> $gp_cwd"
  1413. }
  1414.  
  1415.  
  1416. #############################################################################
  1417. #
  1418. #  Display or rewrite "command" to command window  
  1419.  
  1420. proc GP_DispCommand {command} {
  1421.     global   gp_Prompts gp_cwd 
  1422.     
  1423.     # This is ugly and probably not very efficient.
  1424.     
  1425.     set lst [maxPos]
  1426.     set boll [lineStart $lst]
  1427.     set curr [getPos]
  1428.     
  1429.     if {[pos::compare $curr >= $boll]} {       
  1430.     set bol [lineStart $curr]
  1431.     set eol [nextLineStart $curr] 
  1432.     set text [getText $bol $eol]
  1433.     set ltext [getText $boll $lst]
  1434.     foreach gp $gp_Prompts {
  1435.         set c1 [string first $gp $ltext]
  1436.         set c2 [expr $lst - $boll]
  1437.         set c3 [string length $gp]
  1438.         set c4 [expr $lst - $curr] 
  1439.         set c5 [string length $command]
  1440.         if { $c1 == 0 & [expr $c2 >= $c3 | $c4 >= $c5 ] } {
  1441.         if {[string first $command $text] == -1} {
  1442.             set a [expr $boll + [string length $gp] ]
  1443.             set b [string trim $command "\r"]
  1444.             replaceText $lst  $a $b
  1445.         } 
  1446.         } 
  1447.     }    
  1448.     }
  1449. }
  1450.  
  1451.  
  1452.  
  1453.  
  1454. #############################################################################
  1455. #
  1456. #  Send line to GNUPLOT
  1457. #
  1458.  
  1459. proc GP_DoLine {} {
  1460.     
  1461.     beginningOfLine
  1462.     set bol [getPos]
  1463.     endOfLine
  1464.     set eol [getPos]
  1465.     
  1466.     set scriptName [getText $bol $eol]
  1467.     GP_SendCommand $scriptName     800
  1468. }
  1469.  
  1470.  
  1471. #############################################################################
  1472. #
  1473. #  Send selection to GNUPLOT
  1474. #
  1475.  
  1476. proc GP_DoSelection {} {
  1477.     # Break lines into separate commands.
  1478.     foreach sN [split [getSelect] "\r"] { 
  1479.     GP_SendCommand $sN 900
  1480.     }
  1481.     
  1482. }
  1483.  
  1484.  
  1485.  
  1486.  
  1487. #############################################################################
  1488. #
  1489. #  Command History 
  1490. #
  1491.  
  1492. proc GP_PrevCommand {} {
  1493.     global  gp_CommandHist gp_CommandNum gp_Hist gp_Prompt gp_MultiPrompt 
  1494.     global  gp_ContPrompt gp_Console gp_Hist
  1495.     
  1496.     #enter only if cr in console window...
  1497.     set wins [winNames]
  1498.     if { [lsearch $wins "$gp_Console" ] == 0} {
  1499.     
  1500.     set text [getText [lineStart [getPos] ] [nextLineStart [getPos] ] ]
  1501.     if {[set ind [string first $gp_Prompt $text] ] == 0} {
  1502.         goto [expr [lineStart [getPos] ] + $ind + [string length $gp_Prompt] ]
  1503.     } elseif {[set ind [string first $gp_MultiPrompt $text] ] == 0} {
  1504.         goto [expr [lineStart [getPos] ] + $ind + 
  1505.         [string length $gp_Multiprompt] ]
  1506.     } elseif {[set ind [string first $gp_ContPrompt $text] ] == 0} {
  1507.         goto [expr [lineStart [getPos] ] + $ind + [string length $gp_Contprompt] ]
  1508.     } elseif { return }
  1509.     
  1510.     incr gp_CommandNum -1
  1511.     if {$gp_CommandNum < 0} {
  1512.         incr gp_CommandNum
  1513.         endOfLine
  1514.         return
  1515.     } 
  1516.     set text [lindex $gp_CommandHist $gp_CommandNum]
  1517.     set to [nextLineStart [getPos] ]
  1518.     if {[lookAt [expr $to-1] ] == "\r"} {incr to -1}
  1519.     
  1520.     replaceText [getPos] $to $text
  1521.     } elseif { [lsearch $wins $gp_Hist ]  == 0} {
  1522.     
  1523.     set limit [nextLineStart [nextLineStart 0] ]
  1524.     if {[getPos] > $limit} {
  1525.         set limit [pos::math [getPos] - 1]
  1526.     }
  1527.     select [lineStart $limit] [nextLineStart $limit]
  1528.     } else {
  1529.     previousLine
  1530.     }
  1531.     
  1532. }
  1533. # 
  1534.  
  1535. proc GP_NextCommand {} {
  1536.     global  gp_CommandHist gp_CommandNum gp_Prompt gp_MultiPrompt 
  1537.     global gp_ContPrompt gp_Console gp_Hist
  1538.     
  1539.     #enter only if cr in console window...
  1540.     set wins [winNames]
  1541.     if { [lsearch $wins "$gp_Console"  ]  == 0} {
  1542.     
  1543.     set text [getText [lineStart [getPos] ] [nextLineStart [getPos] ]]
  1544.     if {[set ind [string first $gp_Prompt $text] ] == 0} {
  1545.         goto [expr [lineStart [getPos] ] + $ind + 9]
  1546.     } elseif {[set ind [string first $gp_MultiPrompt $text] ] == 0} {
  1547.         goto [expr [lineStart [getPos] ] + $ind + 11]
  1548.     } elseif {[set ind [string first $gp_ContPrompt $text] ] == 0} {
  1549.         goto [expr [lineStart [getPos] ] + $ind + 3]
  1550.     } else  { 
  1551.         endOfBuffer
  1552.         return 
  1553.     }
  1554.     
  1555.     incr gp_CommandNum
  1556.     if {$gp_CommandNum > [llength $gp_CommandHist]} {
  1557.         incr gp_CommandNum -1
  1558.         return
  1559.     }
  1560.     set text [lindex $gp_CommandHist $gp_CommandNum]
  1561.     set to [nextLineStart [getPos] ]
  1562.     if {[lookAt [expr $to-1] ] == "\r"} {incr to -1}
  1563.     replaceText [getPos] $to $text
  1564.     } elseif { [lsearch $wins $gp_Hist  ]  == 0} {
  1565.     set pos [getPos]
  1566.     if {$pos < [nextLineStart 0]} {
  1567.         set pos [nextLineStart 0]
  1568.     }
  1569.     if {[nextLineStart $pos] != [maxPos]} {
  1570.         select [nextLineStart $pos] [nextLineStart [nextLineStart $pos] ]
  1571.     }
  1572.     } else {
  1573.     # mv cusor down...
  1574.     nextLine
  1575.     }    
  1576. }
  1577.  
  1578.  
  1579.  
  1580. #############################################################################
  1581. #
  1582. #  Edit current window in GNUPLOT
  1583. #
  1584.  
  1585. proc GP_EditFile {} {
  1586.     global GnuplotSig 
  1587.     
  1588.     if { ![GP_Check] } {
  1589.     set thisWin  [lindex [winNames] 0]
  1590.     if {[winDirty]} {
  1591.         if {[askyesno "Save '$thisWin'?"] == "yes"} {
  1592.         save
  1593.         } else { 
  1594.         return 
  1595.         }     
  1596.     }
  1597.     set thisWin  [lindex [winNames -f ] 0]
  1598.     killWindow
  1599.     if {![catch {sendOpenEvent -n \'$GnuplotSig\' $thisWin }]} {
  1600.         switchTo \'$GnuplotSig\'     
  1601.     }
  1602.     }
  1603. }
  1604.  
  1605.  
  1606. #############################################################################
  1607. #
  1608. #  change behavior of modifyModeFlags
  1609. #
  1610.  
  1611.     
  1612. proc GP_modifyModeFlags {{title ""}} {
  1613.     global mode GPLTmodeVars gp_modflag PREFS gp_HistGEOM gp_GEOM
  1614.     global GnuplotMenu  gp_Graph gp_Console  gp_Hist gp_floatmenu
  1615.     
  1616.     set wins [winNames]
  1617.     if { [lsearch $wins "$gp_Console" ]  >= 0}  {
  1618.     set gp_GEOM [ getGeometry "$gp_Console" ]
  1619.     }
  1620.     
  1621.     if { [lsearch $wins $gp_Hist] >= 0 } {
  1622.     set gp_HistGEOM [ getGeometry "$gp_Hist" ]
  1623.     }
  1624.     
  1625.     set gp_modflag 1
  1626.     
  1627.     if { $GPLTmodeVars(LiveHist) } { 
  1628.     set wins [winNames]
  1629.     if { [lsearch $wins "$gp_Console"  ]  >= 0} {
  1630.         GP_DumpHistory
  1631.     } 
  1632.     } else {
  1633.     set wins [winNames]
  1634.     if {[lsearch $wins $gp_Hist  ]  >= 0} {
  1635.         bringToFront $gp_Hist
  1636.         killWindow 
  1637.     } 
  1638.     }
  1639.     if { $GPLTmodeVars(EventHandler) } { 
  1640.     } else {
  1641.     set jj1 "The event handler is broken in Alpha (68k).
  1642.     set jj2 "You may need to disable event handling until it is fixed."
  1643.     alertnote $jj1 $jj2
  1644.     }
  1645.     if { $GPLTmodeVars(GraphButton) } { 
  1646.     GP_GraphButton
  1647.     } else {
  1648.     GP_KillGraphButton
  1649.     }
  1650.     # This file is sourced when appropriate by Alpha, 
  1651.     # it should not happen here.
  1652.     #catch {  source $PREFS:GPLTPrefs.tcl } jjj
  1653.     catch {    bringToFront "$gp_Console" } jjj
  1654. }
  1655.  
  1656. #############################################################################
  1657. #
  1658. #  closeHook procedure so that gnuplot is quit 
  1659. #  whenever the user closes the console window.  Also ask about 
  1660. #  saving the history list when the console is closed.
  1661. #
  1662. #
  1663.     
  1664. proc GP_CloseHook    {name} {
  1665.     global GnuplotMenu GPLTmodeVars PREFS modifiedArrayElements
  1666.     global gp_CreatorList gp_TypeList gp_Console gp_Graph gp_Hist 
  1667.     global gp_CreatorNames gp_CommandNum gp_Launched GnuplotSig modifiedVars
  1668.     global gp_GEOM gp_HistGEOM modifiedVars
  1669.     
  1670.     if { [string first "$gp_Console" $name] == 0    } {
  1671.     
  1672.     if    {$gp_CommandNum != 0 && ! $GPLTmodeVars(NevrSavHist) } {
  1673.         GP_DumpHistory
  1674.         set ans [askyesno -c "Save    gnuplot command History?" ]
  1675.     } else {    set ans "yes" }
  1676.     
  1677.     GP_OffSet
  1678.     switch -exact [string tolower $ans] {
  1679.         "cancel"   { GP_Console; return $result }
  1680.         "no"       { GP_ClearHistory }
  1681.         "yes"       {     
  1682.         catch { setWinInfo -w $gp_Hist read-only 0 } jj                                        
  1683.         catch { setWinInfo -w $gp_Hist dirty 1 } jj
  1684.         catch { bringToFront $gp_Hist } jj
  1685.         if { $jj == 0 } { 
  1686.             catch { saveAs "history.gp" } jj
  1687.         }
  1688.         catch { setWinInfo -w $gp_Hist dirty 0 } jj                                        
  1689.         catch { setWinInfo -w $gp_Hist read-only 1 } jj
  1690.         GP_ClearHistory
  1691.         }
  1692.     } 
  1693.     #end case
  1694.     #        if {$gp_Launched    !=    0 } { 
  1695.     catch { sendQuitEvent \'$GnuplotSig\' } hhh  
  1696.     lappend modifiedVars  GnuplotSig 
  1697.     #            } 
  1698.     set gp_Launched 0
  1699.     set wins [winNames]
  1700.     if { [lsearch $wins $gp_Hist  ]  >= 0} {
  1701.         bringToFront $gp_Hist
  1702.         killWindow 
  1703.     } 
  1704.     lappend modifiedVars   gp_GEOM 
  1705.     lappend modifiedVars   gp_HistGEOM 
  1706.     
  1707.     } elseif {[string first $gp_Hist    $name] == 0} {
  1708.     set wins [winNames]
  1709.     if { [lsearch $wins "$gp_Console" ]  >= 0} {
  1710.         set GPLTmodeVars(LiveHist) 0
  1711.     } 
  1712.     }
  1713. } 
  1714.     
  1715.  
  1716. #############################################################################
  1717. #
  1718. #  Redefine the deactivateHook procedure so that gnuplot is quit 
  1719. #  whenever the user closes the console window.  Also ask about 
  1720. #  saving the history list when the console is closed.
  1721. #
  1722. #
  1723.     
  1724. proc GP_DeactivateHook    {name} {
  1725.     global  gp_Hist GPLTmodeVars gp_Console gp_Graph
  1726.     global  gp_GEOM gp_HistGEOM
  1727.     if    { [string first $gp_Hist $name] == 0    } {
  1728.     set gp_HistGEOM [ getGeometry "$gp_Hist" ]
  1729.     endOfBuffer
  1730.     } elseif {[string first "$gp_Console" $name] == 0} {
  1731.     set gp_GEOM [getGeometry "$gp_Console" ]
  1732.     } 
  1733. } 
  1734.  
  1735. #############################################################################
  1736. #
  1737. #  Redefine the activateHook procedure so that gnuplot is quit 
  1738. #  whenever the user closes the console window.  Also ask about 
  1739. #  saving the history list when the console is closed.
  1740. #
  1741. #
  1742. proc GP_ActivateHook    {name} {
  1743.     global  gp_Hist gp_Graph gp_Console modifiedArrayElements
  1744.     global  mode gp_cwd GPLTmodeVars mode gp_modflag gp_GEOM
  1745.     
  1746.     if    { [string first "$gp_Console" $name] == 0} {
  1747.     changeMode GPLT
  1748.     set gp_GEOM [ getGeometry "$gp_Console" ]
  1749.     } elseif    { [string first $gp_Hist $name] == 0} {
  1750.     set gp_HistGEOM [ getGeometry "$gp_Hist" ]
  1751.     }
  1752.     
  1753.     message "Current gnuplot Path ==> $gp_cwd"
  1754. } 
  1755.  
  1756.  
  1757.  
  1758.  
  1759. ###########################################################################
  1760. #
  1761. # In GNUc mode, cmd-double-click highlights area btween consecutive 
  1762. # gnuplot prompts
  1763. #
  1764.  
  1765. proc GPLT::DblClick {from to} {
  1766.     
  1767.     global gp_Prompts
  1768.     
  1769.     # First find "gnuplot> " prompt above and below cursor entry...
  1770.     # don't forget to deal with "multiplot> " and "> "
  1771.     
  1772.     set gp1 [list]
  1773.     foreach gp $gp_Prompts {lappend gp1 [search -n -f 0 -r 1   $gp $from] }
  1774.     set firstmatch [lindex [lindex $gp1 0 ] 0]
  1775.     foreach el $gp1 { 
  1776.     if {[lindex $el 1] > $firstmatch } { 
  1777.         set firstmatch [lindex $el 0] 
  1778.     } 
  1779.     }    
  1780.     
  1781.     if {$firstmatch == {}} {
  1782.     message "You are not between prompts" 
  1783.     return 
  1784.     } else {
  1785.     
  1786.     set firstmatch [nextLineStart $firstmatch]
  1787.     endOfBuffer
  1788.     set lastmatch [getPos ]
  1789.     set gp1 [list]
  1790.     foreach gp $gp_Prompts {lappend gp1 [search -n -f 1 -r 1   $gp $from] }
  1791.     foreach el $gp1 {
  1792.         if {[lindex $el 1]!={} & [lindex $el 0]< $lastmatch } { 
  1793.         set lastmatch $el 
  1794.         } 
  1795.     }
  1796.     if {$lastmatch == {}} {
  1797.         message "You are not between prompts" 
  1798.         return 
  1799.     } else { 
  1800.         
  1801.         goto $lastmatch
  1802.         beginningOfLine
  1803.         select $firstmatch [getPos] 
  1804.     }
  1805.     }
  1806. }
  1807.  
  1808.  
  1809.  
  1810. #############################################################################
  1811. #
  1812. #  Select creator from list
  1813. #
  1814.  
  1815. proc GP_SelectCreator {} {
  1816.     global gp_CreatorNames  gp_CreatorList   gp_TypeList GPLTmodeVars  
  1817.     global setOutputCreator modifiedArrayElements modifiedVars
  1818.     global gp_CREA gp_TYPE
  1819.     
  1820.     set crea [listpick -p "Select output file creator:" $gp_CreatorNames  ]
  1821.     set creator [lindex $gp_CreatorList [lsearch  $gp_CreatorNames $crea] ]
  1822.     set type [lindex $gp_TypeList [lsearch  $gp_CreatorNames $crea] ]
  1823.     if {$creator == {} } {
  1824.     set gp_CREA 'ALFA'
  1825.     set gp_TYPE 'TEXT' 
  1826.     } else { 
  1827.     set gp_CREA $creator
  1828.     set gp_TYPE $type
  1829.     }
  1830.     lappend modifiedVars  gp_TYPE
  1831.     lappend modifiedVars  gp_CREA
  1832.     lappend modifiedVars  gp_CreatorList 
  1833.     lappend modifiedVars  gp_TypeList
  1834.     lappend modifiedVars  gp_CreatorNames 
  1835. }
  1836.  
  1837.  
  1838. #############################################################################
  1839. #
  1840. #  Add creator to list from file dialog
  1841. #
  1842.  
  1843. proc GP_AddCreator {} {
  1844.     global gp_CreatorNames  gp_CreatorList  GnuplotMenu gp_TypeList 
  1845.     global GPLTmodeVars modifiedVars modifiedArrayElements
  1846.     global gp_CREA gp_TYPE
  1847.     
  1848.     set fname [getfile "Select file type for creator"] 
  1849.     #  add to creator list
  1850.     if {[getFileType $fname]=="APPL"} {
  1851.     alertnote "Sorry, but that was an application. \rTry again."
  1852.     return
  1853.     }
  1854.     
  1855.     if {$fname != {}} {
  1856.     set nm [getline "What do you wish to call it?" [file tail $fname ] ]
  1857.     if {$nm != {} } {   
  1858.         set gp_CREA  [getFileSig $fname]
  1859.         set gp_TYPE  [getFileType $fname]
  1860.         lappend gp_CreatorList  $gp_CREA
  1861.         lappend gp_TypeList     $gp_TYPE
  1862.         lappend gp_CreatorNames $nm
  1863.         enableMenuItem  setOutputCreator "Select..." on
  1864.         enableMenuItem  setOutputCreator "Delete..." on
  1865.         lappend modifiedVars  gp_TYPE
  1866.         lappend modifiedVars  gp_CREA
  1867.         lappend modifiedVars  gp_CreatorList 
  1868.         lappend modifiedVars  gp_TypeList 
  1869.         lappend modifiedVars  gp_CreatorNames 
  1870.     }
  1871.     }
  1872.     
  1873.     
  1874. }
  1875.  
  1876. #############################################################################
  1877. #
  1878. #  Remove creator from list
  1879. #
  1880.  
  1881. proc GP_DeleteCreator {} {
  1882.     global gp_CreatorNames GnuplotMenu gp_CreatorList  gp_TypeList 
  1883.     global GPLTmodeVars modifiedVars modifiedArrayElements
  1884.     global gp_CREA gp_TYPE
  1885.     
  1886.     set crea [listpick -p "Select creator to be deleted:"  $gp_CreatorNames ]
  1887.     
  1888.     if {$crea != {}} {
  1889.     #  now remove this creator from both lists....
  1890.     set creatorInd [lsearch  $gp_CreatorNames $crea]
  1891.     set crea [ lindex $gp_CreatorList $creatorInd]
  1892.     set gp_CreatorNames [ lreplace $gp_CreatorNames $creatorInd $creatorInd ]
  1893.     set gp_CreatorList  [ lreplace $gp_CreatorList  $creatorInd $creatorInd ]
  1894.     set gp_TypeList     [ lreplace $gp_TypeList     $creatorInd $creatorInd ]
  1895.     
  1896.     if {$gp_CREA == $crea } {
  1897.         set gp_CREA 'ALFA'
  1898.         set gp_TYPE 'TEXT'
  1899.     } 
  1900.     lappend modifiedVars  gp_TYPE
  1901.     lappend modifiedVars  gp_CREA
  1902.     lappend modifiedVars  gp_CreatorList 
  1903.     lappend modifiedVars  gp_TypeList 
  1904.     lappend modifiedVars  gp_CreatorNames 
  1905.     }
  1906.     
  1907.     if {[llength $gp_CreatorList] == 0} {
  1908.     enableMenuItem  setOutputCreator "Select..." off
  1909.     enableMenuItem setOutputCreator "Delete..." off
  1910.     }
  1911. }
  1912.  
  1913.  
  1914. #############################################################################
  1915. #
  1916. #  Add command to history list
  1917. #
  1918.  
  1919. proc GP_AddToHist  { cmmd } {
  1920.     global gp_CommandHist gp_CommandNum GnuplotMenu 
  1921.     global GP_Console gp_Hist GPLTmodeVars
  1922.     
  1923.     enableMenuItem gnuplotOptions "clearHistory" on
  1924.     lappend gp_CommandHist $cmmd
  1925.     set gp_CommandNum [llength $gp_CommandHist]
  1926.     
  1927.     if { $GPLTmodeVars(LiveHist) } {
  1928.     # if history list active then append $cmmd on last line
  1929.     set wins [winNames]
  1930.     if { [lsearch $wins $gp_Hist ]  >= 0} {
  1931.         setWinInfo -w $gp_Hist dirty 1
  1932.         setWinInfo -w $gp_Hist  read-only 0
  1933.         insertText -w $gp_Hist "$cmmd\r"
  1934.         setWinInfo -w $gp_Hist  dirty 0
  1935.         setWinInfo    -w $gp_Hist  read-only 1
  1936.     } else {
  1937.         GP_DumpHistory
  1938.         bringToFront "$gp_Console"
  1939.     }
  1940.     
  1941.     }
  1942. }
  1943.  
  1944.  
  1945. #############################################################################
  1946. #
  1947. #  Clear History list 
  1948. #
  1949.  
  1950. proc GP_ClearHistory {} {
  1951.     global  GnuplotMenu gp_CommandHist gp_CommandNum  gp_Hist
  1952.     
  1953.     set gp_CommandHist [list]
  1954.     set gp_CommandNum "0"
  1955.     enableMenuItem gnuplotOptions "clearHistory" off    
  1956.     set wins [winNames]
  1957.     if { [lsearch $wins $gp_Hist ] >= 0} {
  1958.     bringToFront $gp_Hist
  1959.     killWindow 
  1960.     }
  1961. }
  1962.  
  1963.  
  1964. #############################################################################
  1965. #
  1966. #  Write History list into a window of its own.
  1967. #
  1968.  
  1969. proc GP_DumpHistory {} {
  1970.     global gp_CommandHist gp_CommandNum gp_Console 
  1971.     global GPLTmodeVars gp_Console gp_Hist  
  1972.     global gp_GEOM
  1973.     
  1974.     set wins [winNames]
  1975.     set nw [ llength $wins ]
  1976.     
  1977.     if { [lsearch $wins $gp_Hist ]  == -1} {
  1978.     
  1979.     set l [ expr [lindex $gp_GEOM 0] + 12 + [lindex $gp_GEOM 2] ]
  1980.     set t [ expr [lindex $gp_GEOM 1] + 65 ]
  1981.     set w 96
  1982.     set h [ expr [lindex $gp_GEOM 3] - 65 ]
  1983.     new -n $gp_Hist -g $l $t $w $h -m GPLT
  1984.     set gp_HistGEOM [getGeometry]        
  1985.     GP_uFD
  1986.     set scriptName "# (<cr> to send to gnuplot)\r#-----\r"
  1987.     foreach word $gp_CommandHist  {append  scriptName  $word "\r" }
  1988.     insertText  -w $gp_Hist $scriptName
  1989.     setWinInfo dirty 0
  1990.     setWinInfo read-only 1
  1991.     } else {
  1992.     bringToFront $gp_Hist
  1993.     }
  1994. }
  1995.  
  1996.     
  1997.  
  1998. ################################################################################
  1999. #
  2000. #  Insert File Description---use Vince's if possible.  
  2001. #      this used in creating new window and in dumping history list
  2002. #
  2003.  
  2004. proc GP_uFD { } {
  2005.     #catch {userFileDescription } ans 
  2006.     #if {     $ans != ""    }  {
  2007.     insertText "#\r#\r#     " [join [mtime [now] long] ] "\r"
  2008.     nextLine
  2009.     #}
  2010.     endOfBuffer
  2011. }
  2012.  
  2013.  
  2014. ################################################################################
  2015. #
  2016. #  Clear a few globals...
  2017. #
  2018. #
  2019. #
  2020. proc GP_Clear {} {
  2021.     global PREFS  GPLTmodeVars
  2022.     global  gp_CreatorList gp_CreatorNames  
  2023.     global gp_GEOM gp_HistGEOM modifiedVars
  2024.     global gp_CREA gp_TYPE
  2025.     
  2026.     if { [info exists gp_GEOM] } { set gp_GEOM [list] }      
  2027.     if { [info exists gp_CreatorList] } { unset gp_CreatorList }      
  2028.     if { [info exists gp_TypeList] } { unset gp_TypeList }      
  2029.     if { [info exists gp_CreatorNames] } { unset gp_CreatorNames }      
  2030.     if { [info exists gp_HistGEOM] } { unset gp_HistGEOM  }      
  2031.     if { [info exists gp_CREA] } { unset gp_CREA  }      
  2032.     if { [info exists gp_TYPE] } { unset gp_TYPE  }      
  2033.     
  2034.     ensureset gp_CreatorList [list ALFA GPLT ] 
  2035.     ensureset gp_TypeList [list TEXT TEXT ] 
  2036.     ensureset gp_CreatorNames [list alpha gnuplot] 
  2037.     ensureset gp_CREA ALFA
  2038.     ensureset gp_TYPE TEXT
  2039.     ensureset gp_GEOM [list]
  2040.     ensureset gp_HistGEOM [list ]
  2041.     
  2042.     if { [llength $gp_CreatorList] == 0 \
  2043.       || [llength $gp_CreatorList] != [llength $gp_CreatorNames] \
  2044.       || [llength $gp_CreatorList] != [llength $gp_TypeList]} {
  2045.     set gp_CreatorList [list]
  2046.     set gp_TypeList [list]
  2047.     set gp_CreatorNames [list]
  2048.     }
  2049.     
  2050.     lappend modifiedVars gp_CreatorNames gp_TypeList gp_CreatorList 
  2051.     lappend modifiedVars gp_HistGEOM gp_GEOM
  2052.     lappend modifiedVars gp_TYPE gp_CREA
  2053.     #catch { source $PREFS:gnuplotMode.tcl } blah
  2054.     #catch { source $HOME:Tcl:Modes:gnuplotMode.tcl } blah
  2055. }
  2056.  
  2057.  
  2058. ################################################################################
  2059. #
  2060. #  History goto match...
  2061. #
  2062. #
  2063. #
  2064.  
  2065. proc GP_HistgotoMatch {} {
  2066.     set frst [lineStart [getPos] ]
  2067.     endOfLine
  2068.     set lst  [getPos]
  2069.     endOfBuffer
  2070.     beginningOfLine
  2071.     GP_SendCommand [getText $frst $lst ] 1000
  2072. }
  2073.  
  2074.  
  2075.  
  2076.  
  2077.  
  2078. ################################################################################
  2079. #
  2080. #  Create floating menu
  2081. #
  2082. #
  2083. #
  2084.  
  2085. set GP_GraphMenu "gnuplotGraph"
  2086.  
  2087. set gp_grmen [list "Menu  -n $GP_GraphMenu -p GnuplotMenuItem" ]
  2088. lappend gp_grmen "gnuplot" "(-" 
  2089.  
  2090. Menu  -n $GP_GraphMenu -p GnuplotMenuItem   [ concat \
  2091.   "gnuplot" \
  2092.   ]
  2093.  
  2094.      
  2095.  
  2096.  
  2097.  
  2098.  
  2099.  
  2100. ################################################################################
  2101. #
  2102. #  run load scripts from scripts menu
  2103. #
  2104. #
  2105. #
  2106.  
  2107. proc GP_ScriptMenuItems {menu item} {
  2108.     global gp_sl gp_home gp_scriptItems gp_Path  gp_openItems
  2109.     
  2110.     set men [string tolower $menu]
  2111.     set ite [string tolower $item]
  2112.     
  2113.     if { "$item" == "Rebuild Menu" } {
  2114.     set cdir [pwd]
  2115.     set sl [expr [string length $gp_Path ] - 2] 
  2116.     cd [string range $gp_Path 0 $sl ]
  2117.     GP_RebuildScriptMenu
  2118.     cd "$cdir"
  2119.     return 0
  2120.     }
  2121.     
  2122.     foreach it $gp_scriptItems {
  2123.     if { [string match "cd \'*$men:\'; load \'*$men:$ite\'" [string tolower $it] ] } {
  2124.         GP_SendCommand "$it" 110
  2125.         return 0
  2126.     }      
  2127.     }
  2128.     
  2129.     #set men [string tolower [string range $menu 5 [string length $menu] ] ]
  2130.     
  2131.     # filter out the "• edit "  from the selected $menu $item
  2132.     set ite [string tolower [string range $item 7 [string length $item] ] ]
  2133.     
  2134.     foreach it $gp_openItems {
  2135.     if { [string match "*$men:$ite" [string tolower $it] ] } {
  2136.         edit "$it" 
  2137.         changeMode GPLT 
  2138.         return 0
  2139.     }      
  2140.     }
  2141. }
  2142.  
  2143.  
  2144.  
  2145. ################################################################################
  2146. #
  2147. #  Create a floating gnuplot graph button (Alpha 6.2 or higher)
  2148. #
  2149. #
  2150. #
  2151. proc GP_GraphButton {} {    
  2152.     global gp_floatmenu GP_GraphMenu GPLTmodeVars gp_sl gp_Path gp_GEOM gp_FLTGEOM
  2153.     
  2154.     
  2155.     #    if {[llength $gp_FLTGEOM] != 2 } {    
  2156.     if {[llength $gp_GEOM] == 4 } {
  2157.     set l [ expr [lindex $gp_GEOM 0] + 5 + [lindex $gp_GEOM 2] ]
  2158.     set t [ expr [lindex $gp_GEOM 1] - 20 ]
  2159.     set gp_FLTGEOM [list $l $t ] 
  2160.     } else {
  2161.     set l 20
  2162.     set t 20
  2163.     }
  2164.     #    }  else {
  2165.     #          set l  [lindex $gp_FLTGEOM 0]  
  2166.     #          set t  [lindex $gp_FLTGEOM 1]  
  2167.     #    }
  2168.     
  2169.     if {$GPLTmodeVars(GraphButton) } { 
  2170.     if { (![info exists  gp_floatmenu] )} {
  2171.         set gp_floatmenu [float -m $GP_GraphMenu -n "" -M -1 -z GPLT -l $l -t $t ]
  2172.     } 
  2173.     
  2174.     } 
  2175.     
  2176. }
  2177.  
  2178.  
  2179.  
  2180. ################################################################################
  2181. #
  2182. #  Generate the script menu 
  2183. #      
  2184. #
  2185.  
  2186. proc GP_ScriptList { sdir men } {
  2187.     global gp_scriptItems  gp_openItems
  2188.    
  2189.     if {"$men" == "Scripts" } {
  2190.         set sl [list "\(Rebuild Menu"]
  2191.     } else {
  2192.         set sl [list]
  2193.     }
  2194.     
  2195.     # get the list of text files in $sdir
  2196.     set gp_fl [ glob -nocomplain -t TEXT "$sdir"] 
  2197.     set mdir [string range "$sdir" 0 [expr [string length "$sdir"] - 2 ] ] 
  2198.     set rdir [string range "$mdir" 0 [expr [string length "$mdir"] -1 ] ]
  2199.     foreach f $gp_fl {
  2200.     set mitem [string range $f [expr 1 + [string last ":" "$f" ] ] [ string length "$f" ] ]
  2201.     #append mitem "&"
  2202.     if { $mitem != "" } { 
  2203.         lappend sl "<E<S$mitem" 
  2204.         lappend sl "<S<I• edit $mitem" 
  2205.         lappend sl "<S<B• edit $mitem" 
  2206.         lappend sl "<S<U• edit $mitem" 
  2207.         lappend sl "<S<O• edit $mitem" 
  2208.         lappend gp_scriptItems "cd \'$rdir\'; load \'$f\'"
  2209.         lappend gp_openItems "$f"
  2210.     }
  2211.     }
  2212.     
  2213.     # get the list of aliased directories in $sdir and
  2214.     # perform this operation again on subdirectories
  2215.     set dlist [ glob   -t fdrp -nocomplain "$sdir"]
  2216.     foreach d $dlist {
  2217.     set dn [string range $d [expr [string last ":" "$d" ] +1 ] [string length $d]   ]
  2218.     #set dn [string range $dn [expr 1 + [string last ":" "$dn" ] ] [ string length "$dn" ] ]
  2219.     set sl [concat "$sl"  [concat " \{Menu -m -n" "\"$dn\"" -p GP_ScriptMenuItems  " \{  "  ] ]
  2220.     set dnam $d
  2221.     append dnam "*" 
  2222.     #set gp_ssl [ GP_ScriptList "$dnam" $dn ]
  2223.     set gp_ssl [list "(ALIASED FOLDERS NOT WORKING YET"]
  2224.     set sl [ concat "$sl "  $gp_ssl " \}  \} " ]
  2225.     }
  2226.     
  2227.     # get the list of directories in $sdir and
  2228.     # perform this operation again on subdirectories
  2229.     set dlist [ glob -nocomplain  "$sdir:"]
  2230.     foreach d $dlist {
  2231.     set dn [string range $d 0 [expr [string last ":" "$d" ] - 1 ]  ]
  2232.     set dn [string range $dn [expr 1 + [string last ":" "$dn" ] ] [ string length "$dn" ] ]
  2233.     set sl [concat "$sl"  [concat " \{Menu -m -n" "\"$dn\"" -p GP_ScriptMenuItems  " \{  "  ] ]
  2234.     set dnam $d
  2235.     append dnam "*" 
  2236.     set gp_ssl [ GP_ScriptList "$dnam" $dn ]
  2237.     set sl [ concat "$sl "  $gp_ssl " \}  \} " ]
  2238.     }
  2239.     
  2240.     return  $sl 
  2241. }
  2242.  
  2243.  
  2244. ################################################################################
  2245. #
  2246. #  Kill a floating gnuplot menu (Alpha 6.2 or higher)
  2247. #
  2248. #
  2249. #
  2250. proc GP_KillGraphButton {} {    
  2251.     global gp_floatmenu GnuplotMenu GPLTmodeVars 
  2252.     
  2253.     if { [info exists  gp_floatmenu] }  { 
  2254.     catch {unfloat $gp_floatmenu } ans
  2255.     unset gp_floatmenu
  2256.     }
  2257. }
  2258.  
  2259.  
  2260.  
  2261.  
  2262.  
  2263. ################################################################################
  2264. #
  2265. #  Load a script into gnuplot 
  2266. #      
  2267. #
  2268.  
  2269. proc GP_LoadScript {} {
  2270.     global gp_cwd
  2271.     catch { cd "$gp_cwd" } hmm
  2272.     set GPLTFile [ getfile "Choose a script to load:" ]
  2273.     if { $GPLTFile != "" } {    
  2274.     GP_SendCommand  "load \'$GPLTFile\'" 120
  2275.     }
  2276. }
  2277.  
  2278.  
  2279.  
  2280. ################################################################################
  2281. #
  2282. #  Tell gnuplot to save settings...
  2283. #
  2284. #
  2285. #
  2286.  
  2287. proc GP_SaveSettings { what } {
  2288.     global  GPLTmodeVars gp_cwd gp_TYPE gp_CREA
  2289.     
  2290.     catch { cd "$gp_cwd" } hmm
  2291.     set tCREA $gp_CREA
  2292.     set tTYPE $gp_TYPE
  2293.     set gp_CREA {ALFA}
  2294.     set gp_TYPE {TEXT}
  2295.     set where [ putfile "Save current gnuplot settings" \
  2296.       [format "gnuplot%src.gp" [string toupper $what ] ] ]
  2297.     if { $where != "" } { 
  2298.     GP_SendCommand "save $what \'$where\'" 130
  2299.     }
  2300.     set gp_CREA  $tCREA
  2301.     set gp_TYPE  $tTYPE
  2302. }
  2303.  
  2304.  
  2305.  
  2306. ################################################################################
  2307. #
  2308. #  Tell gnuplot where the current dir is...
  2309. #
  2310. #
  2311. #
  2312.  
  2313. proc GP_SetCWD {} {
  2314.     set gp_cwd [ get_directory -p "Select gnuplot working folder"]
  2315.     if { $gp_cwd != "" } {
  2316.     GP_SendCommand "cd \'$gp_cwd\'" 140
  2317.     }
  2318. }
  2319.  
  2320.  
  2321.  
  2322. ################################################################################
  2323. #
  2324. #  Tell gnuplot to change the point size
  2325. #
  2326. #
  2327. #
  2328.  
  2329. proc GP_SetPTSZ {} {
  2330.     GP_SendCommand " set pointsize [ getline "Enter point size" 1 ] " 150
  2331. }
  2332.  
  2333. ################################################################################
  2334. #
  2335. #  Choose a file to plot and write "plot 'filename'" on command line
  2336. #
  2337. #
  2338. #
  2339.  
  2340. proc GP_ChoosePlotFile { } {
  2341.     global gp_Console gp_cwd
  2342.     catch { cd "$gp_cwd" } hmm
  2343.     set plotfile [ getPathName "Choose a file to plot" 1 ] 
  2344.     if { $plotfile != "" } {
  2345.     insertText -w "$gp_Console" "plot \'$plotfile\' "
  2346.     }
  2347. }
  2348.  
  2349.  
  2350. ################################################################################
  2351. #
  2352. #  Setup menu flags, etc ... assuming gnuplot is off
  2353. #
  2354. #
  2355. #
  2356. proc GP_OffSet {} {
  2357.     global GnuplotMenu gp_CreatorList
  2358.     
  2359.     enableMenuItem gnuplotOptions "clearHistory" off                 
  2360.     enableMenuItem $GnuplotMenu "quit gnuplot" off                 
  2361.     enableMenuItem $GnuplotMenu "graph" off                 
  2362.     enableMenuItem $GnuplotMenu "history" off                 
  2363.     enableMenuItem $GnuplotMenu "saveSettings" off  
  2364.     enableMenuItem gnuplotOptions "setPointSize..." off  
  2365.     enableMenuItem $GnuplotMenu "setWorkingFolder..." off
  2366.     enableMenuItem $GnuplotMenu "choosePlotFile..."     off
  2367.     
  2368.     if {[llength $gp_CreatorList] == 0} {
  2369.     enableMenuItem  setOutputCreator "Select..." off
  2370.     enableMenuItem  setOutputCreator "Delete..." off
  2371.     }
  2372.     
  2373. }
  2374.  
  2375. ################################################################################
  2376. #
  2377. #  TEMPORARY JUNK
  2378. #
  2379. #
  2380. #
  2381. set gp_cwd "???"
  2382.  
  2383. proc aevt { hmm } { 
  2384.     #dummy procedure to fool 68k into semi-working w/eventHandler....
  2385.     if { $hmm == "'GP_A'()" } {
  2386.     GP_Activate
  2387.     } elseif {$hmm=="'GP_C'()" } {
  2388.     GP_Results "gnuplot> "
  2389.     
  2390.     }    
  2391. }
  2392.      
  2393.  
  2394. ################################################################################
  2395. #
  2396. #  Things to do in order to properly setup gnuplot mode menu
  2397. #
  2398. #
  2399. #
  2400. set gp_modflag 0
  2401. GP_OffSet
  2402.  
  2403.  
  2404. ################################################################################
  2405. #
  2406. #  A simple user message
  2407. #
  2408. #
  2409. #
  2410. proc GP_Readme {} {    
  2411.   set wname "message"
  2412.   new -n $wname -m GPLT
  2413.   GP_uFD
  2414.  
  2415.   insertText { 
  2416. #
  2417.    gnuplotMode.tcl Version 1.82
  2418.  
  2419. #   NEWSTUFF:
  2420. #   ---------
  2421.  
  2422.    This version has a simple floating menu with a button that lists
  2423.    all texts files in the scripts directory of gnuplot home dir.
  2424.    To run a script, just select it from the scripts menu.  To edit
  2425.    a script in Alpha, select a script menu item while holding down a 
  2426.    modifier key (shift, option, command, OR ctrl).
  2427.  
  2428.  
  2429.    Modify some of the GPLT mode behaviour by choosing the menu item:
  2430.  
  2431. #     Config:Current Mode:Flags...
  2432.  
  2433.  
  2434.    To edit keyword coloring choose the configure menu item:
  2435.  
  2436. #     Config:Current Mode:Edit Prefs
  2437.  
  2438.  
  2439.  
  2440. #   GNUPLOT works best with Alpha 6.2 or later
  2441. #   ------------------------------------------
  2442.  
  2443. #   FOR 68K USERS ONLY
  2444. #   ------------------
  2445.  
  2446.    Recent versions of Alpha (<6.2) do not have a fully working      
  2447.    eventHandler procedure.  Thus, you might notice strange behavior  
  2448.    in the gnuplot console.  The symptoms of the problem are that     
  2449.    a new gnuplot prompt may not be displayed on the screen after     
  2450.    pressing a carriage return;  or, longer messages may be garbled. 
  2451.   
  2452.    Try the following: 
  2453.  
  2454. #      set term post
  2455. #      plot sin(x)
  2456.  
  2457.    If you see pages of postscript output, then the eventHandler is 
  2458.    apparently working.
  2459.  
  2460.    If not, then to make effective use of the console you may need   
  2461.    to open the Config:Current Mode:flags... menu in Alpha (when in  
  2462.    
  2463.    Keep an eye out at ftp://www.cs.umd.edu/pub/faculty/keleher/Alpha
  2464.    for the latest versions of Alpha which will eventually solve      
  2465.    this problem.
  2466.  
  2467. #   jeff@wave.nrl.navy.mil 
  2468. }    
  2469.    
  2470.   setWinInfo -w $wname dirty 0
  2471.      
  2472. }
  2473.  
  2474.  
  2475. #############################################################################
  2476. #
  2477. #  change behavior of editCurrentModePrefs
  2478. #
  2479.  
  2480. proc GP_editCurrentModePrefs { } {
  2481.     global mode GPLTmodeVars gp_modflag PREFS gp_HistGEOM gp_GEOM
  2482.     global GnuplotMenu  gp_Graph gp_Console  gp_Hist 
  2483.     global PREFS HOME 
  2484.     
  2485.     set wins  [winNames]
  2486.     set jjwinThere [lsearch $wins "GPLTPrefs.tcl"]
  2487.     set searchString1 {[\n\r]###BGK[\n\r](.*)[\n\r]###EGK[\n\r]}
  2488.     
  2489.     if { $jjwinThere >= 0} {
  2490.     set ss [searchInFile [file join $PREFS GPLTPrefs.tcl]  "$searchString1" ]
  2491.     if { $ss == "" } {
  2492.         goto [maxPos]
  2493.         if {$ss == ""} {                                                   
  2494.         set ss [searchInFile [file join $HOME Tcl Modes gnuplotMode.tcl] \
  2495.           "$searchString1" ]
  2496.         } 
  2497.         if {$ss == ""} {                                                   
  2498.         alertnote "Sorry, you'll have to edit gnuplotMode.tcl on your own."
  2499.         } else {
  2500.         insertText -w "GPLTPrefs.tcl" "\n\n$ss\n\n"
  2501.         goto [nextLineStart [minPos]]
  2502.         }
  2503.     }
  2504.     }
  2505. }
  2506.  
  2507.  
  2508. set gp_fm_first 1
  2509.  
  2510.  
  2511.  
  2512. #############################################################################
  2513. #
  2514. #  Called from menu to handle dialogs in the server app
  2515. #  
  2516. #
  2517. proc GP_Dialog { ans } {
  2518.     global  GnuplotSig
  2519.     switchTo  \'$GnuplotSig\'
  2520.     AEBuild -t 3600 -r 'GPSE' GPLT "DIAG" ---- $ans
  2521.     switchTo 'ALFA'
  2522. }
  2523.  
  2524.  
  2525.  
  2526.  
  2527.